home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / program / gcc / libmat.lha / src / mconst5.cc < prev    next >
C/C++ Source or Header  |  1980-01-01  |  367b  |  23 lines
  1. //                    MATRIX LIB
  2. //                TOMMY JOHANSSON
  3. #include "matrix.h"
  4. Matrix::Matrix(const Matrix& A,int x,int y)
  5. {
  6.     #ifdef DEBUG
  7.     puts("Initierar matris från en annan med nya dimensioner.");
  8.     #endif
  9.  
  10.     int i,j;
  11.     koff=alloc(x+1,y+1);
  12.     m=A.m;
  13.     n=A.n;
  14.     for(i=1;i<=x;i++)
  15.         for(j=1;j<=y;j++)
  16.         {
  17.             if((i<=m)&&(j<=n))
  18.                 koff[i][j]=A.koff[i][j];
  19.             else
  20.                 koff[i][j]=0;
  21.         }
  22. }        
  23.